﻿Partial Public Class PresetNameDialog

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        If Not txtName.Text = Nothing Then
            DialogResult = True
        End If

    End Sub

    Public Property filename()
        Get
            Return Me.txtName.Text
        End Get
        Set(ByVal value)

        End Set
    End Property
End Class
